home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
gogame.zip
/
GO.DEF
< prev
next >
Wrap
Text File
|
1987-11-21
|
768b
|
38 lines
;
; GO.DEF
;
;
BEGIN leftb, midb, rightb, leftm, rightm, upm, downm, 25, 25
;
; The three buttons
;
leftb: TYPE ENTER ; select move
midb: TYPE ENTER ; select move
rightb: TYPE "1" ; select cursor move
;
; The movements
;
waitm: MATCH 1,1,,"A",nothing,nothing
leftm: MATCH 1,1,,"G",lstart,lmove ; Check for G and move left
lstart: TYPE "1"
lmove: TYPE "4"
rightm: MATCH 1,1,,"G",rstart,rmove
rstart: TYPE "1"
rmove: TYPE "6" ; Check for G and move right
upm: MATCH 1,1,,"G",ustart,umove
ustart: TYPE "1"
umove: TYPE "8" ; Check for G and move up
downm: MATCH 1,1,,"G",dstart,dmove
dstart: TYPE "1"
dmove: TYPE "2" ; Check for G and move down
nothing: nothing